home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…ibrary 1991 & 1992 Winter / The Apple Reference & Presentations Library CD Apple Partner Edition Winter 91-92.7z / Image.iso / mac / 1-Reference / Apple In Print / Apple In Print Winter '91⁄'92 / Apple In Print Winter '91_'92 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-12-17  |  16KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>265</cardCount>
  7.     <cardID>3027</cardID>
  8.     <listID>119848</listID>
  9.     <cantModify><true /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--------------------------------------------------------------------------                        Stack: Apple In Print                       ----                          ¬©1991 Medior, Inc.                        ----                      ¬©1991 Apple Computer, Inc.                    ----                                                                    ----                           11/23/91 12:41 AM                        ----                            Version: 10.b3                          ---------------------------------------------------------------------------- XCMDs to follow:-- #  2985    FileCopy        ¬© Fr√©d√©ric Rinaldi-- #  1047    NewFolder       ¬© Guy de Picciotto-- #  1142    Prompt          ¬© Fr√©d√©ric Rinaldi-- #  5238    SendToAppleLink6¬© Apple Computer, Inc.-- # 10036    SwitchXRoo      ¬© 1990 Bill Steinberg-- # 12027    zoomRect        ¬© Apple Computer, Inc.-- XFCNs to follow:-- #  1205    ApplicationList ¬© Apple Computer, Inc.-- # 14000    ApplMemory      ¬© Apple Computer, Inc.-- # 12505    ApplSize        ¬© Apple Computer, Inc.-- #  4008    DeleteFile      ¬© Apple Computer, Inc.-- # 21325    DiskSpaceAvail  ¬© Peter Meyer-- # 12517    FileExists      ¬© Apple Computer, Inc.-- # 13008    FileSize        ¬© Apple Computer, Inc.-- #  6146    FilterANDs      ¬© Peter Meyer-- # 29767    FilterNOTs      ¬© Peter Meyer-- # 24894    FilterORs       ¬© Peter Meyer-- #  5622    GetFInfo        ¬© Fr√©d√©ric Rinaldi-- #  1610    GetFolder       ¬© Fr√©d√©ric Rinaldi-- # 12040    MFIsRunning     ¬© Apple Computer, Inc.-- # 12024    RemoveDupItems  ¬© Peter Meyer-- # 12045    sysEnvironment  ¬© Apple Computer, Inc.-- # 12084    SystemPath      ¬© Apple Computer, Inc.-- # 15911    TitleList       ¬© Peter Meyer-- # 12053    TotalRAM        ¬© Apple Computer, Inc.-- # 12067    VolumeList      ¬© Apple Computer, Inc.------------------------------------------------------------------------function FindCorrectVol fPath,curVolumeglobal gErrorStrif there is a file fPath then return fPathif there is a file curVolume & fPath then return curVolume & fPathput volumeList("noDialog:gErrorStr") into volListif gErrorStr ‚↠"" thenerrorOccurred "volumeList/FindCorrectVol"return FALSEend ifrepeat with n = 1 to number of lines of volListput line n of volList into thisVolif there is a file thisVol & fPath then return thisVol & fPathend repeatreturn FALSEend FindCorrectVolon errorOccurred whereglobal gErrorStrif gErrorStr ‚↠"" thenanswer "Error from "&where&" : ‚Äú" & gErrorStr & "‚Äù"put "" into gErrorStrexit to HyperCardend ifend errorOccurredon writePreferencesglobal gAppsHD7,gAppsHDList7spinCursorput (PrefPath()&"Apple InPrint Preferences") into fileNameput "InPrint 10" & "Œ©" & gAppsHD7 & "Œ©" & gAppsHDList7 & "Œ©" into topen file fileNamerepeat with z = 1 to 10000if z mod 3 = 0 then spinCursorwrite char 1 to 16384 of t to file fileNamedelete char 1 to 16384 of tif t = "" then exit repeatend repeatspinCursorclose file fileNameend writePreferenceson readPreferencesglobal gAppsHD7,gAppsHDList7spinCursorput (PrefPath()&"Apple InPrint Preferences") into fileNameput "" into topen file fileNamerepeat with z = 1 to 10000if z mod 3 = 0 then spinCursorread from file fileName for 16384if it = "" then exit repeatput it after tend repeatspinCursorget offset("Œ©",t)put char 1 to it - 1 of t into theVersiondelete char 1 to it of tget offset("Œ©",t)put char 1 to it - 1 of t into gAppsHD7delete char 1 to it of tget offset("Œ©",t)put char 1 to it - 1 of t into gAppsHDList7delete char 1 to it of tclose file fileNameend readPreferencesfunction thereIsAFile tFglobal errGlobalreturn fileExists(tF,"nodialog:errGlobal")end thereIsAFilefunction PrefPathput systemPath() into sysPath--‚Ä¢‚Ä¢ Verify "Preferences:ARPL 10.0:", if not create as necessaryif not thereIsAFile(sysPath &"Preferences:") thenNewFolder sysPath &"Preferences:"get the Resultif it is not 0 thenif it is not -48 then osErr itend ifNewFolder sysPath &"Preferences:ARPL 10.0:"get the Resultif it is not 0 thenif it is not -48 then osErr itend ifelse if not thereIsAFile(sysPath&"Preferences:ARPL 10.0:") thenNewFolder sysPath &"Preferences:ARPL 10.0:"get the Resultif it is not 0 thenif it is not -48 then osErr itend ifend ifreturn sysPath & "Preferences:ARPL 10.0:"end PrefPathFunction stripSpaces theTextrepeat until char 1 of theText is not spacedelete char 1 of theTextend repeatrepeat until last char of theText is not spacedelete last char of theTextend repeatreturn theTextend stripSpaceson saveDataglobal gCustData,gShipData,gImprintDataspinCursorput preferencesPath()& "Apple InPrint Customer Data" into fNameopen file fNamewrite gCustData &"Œ©" to file fNamewrite gShipData &"Œ©" to file fNamespinCursorwrite gImprintData to file fNameclose file fNameend saveDataon readDataglobal gCustData,gShipData,gImprintDataspinCursorput preferencesPath()& "Apple InPrint Customer Data" into fNameopen file fNameput "" into drepeatspinCursorread from file fName for 16834if it = "" then exit repeatput it after dend repeatclose file fNameget offset("Œ©",d)put char 1 to it-1 of d into gCustDatadelete char 1 to it of dspinCursorget offset("Œ©",d)put char 1 to it-1 of d into gShipDatadelete char 1 to it of dput d into gImprintDataend readDataon setScriptrepeat with z = 1 to number of cd fldsput "Cd fld "& quote & short name of cd fld z & quote & return after tend repeatset the script of the target to tend setScripton selectLineCd lineNum,fldNumdo ("put line lineNum of cd fld " & fldNum & " into theLine")if theLine is not "" thendo ("put (number of chars of line 1 to lineNum of cd fld " & fldNum &") + 1 into endChar" &¬¨return & "select char (endChar - length of theLine) to endChar of cd fld " & fldNum)end ifend selectLineCdfunction trim tNdelete char 1 to 7 of tNdelete last char of tNreturn tNend trimfunction pad theText,n,whereif where = "after" or where = "" thenrepeat until length of theText ‚â• nput space after theTextend repeatelse if where = "before" thenrepeat until length of theText ‚â• nput space before theTextend repeatend ifreturn theTextend padfunction LineItemOffset findText,findInif findText is not in findIn then return 0put return & findIn & return into findInreturn number of lines of (char 1 to offset(Return&findText&",",¬¨findIn) of findIn)end LineItemOffsetfunction thereIsAFolder theFolderglobal errGlobalreturn fileExists(theFolder,"nodialog:errGlobal")end thereIsAFolderfunction removeVolume thePathget offset(":",thePath)if it > 0 thenreturn char it+1 to (length of thePath) of thePathelse return thePathend removeVolumefunction RemovePath theFileif ":" is not in theFile then return theFileput 0 into iput length of theFile into pathLengthrepeat with i = pathLength down to 1if char i of theFile = ":" then exit repeatend repeatadd 1 to iif pathLength ‚⧠i thenreturn theFileelse return (char i to pathLength of theFile)end RemovePathfunction LineWordOffset fT,tTif fT is not in tT then return 0put return & tT into tTreturn number of lines of (char 1 to offset(return&fT,tT) of tT)end LineWordOffsetFunction VolumeName theFileif theFile is "" then put trim(long name of this stack) into theFilerepeat with i = 1 to number of chars of theFileif char i of theFile = ":" then exit repeatend repeatreturn (char 1 to i of theFile)end VolumeNameon functionKey theKeyif theKey = 12 thenbugelse if theKey = 11 thenbug falseelse pass functionKeyend functionKeyon bug newOneglobal gCurBugStack,gBugLastIDset cursor to 4put long id of this cd into gBugLastIDif there is a fld "Other Data" thenput line 1 of fld "Other Data" into theNameelse if there is a fld "Title" thenput fld "Title" into theNameelse put short name of this cd into theNameput name of this stack into cSNameset lockmessages to truego stack "ARPL 10.0 Bugs"if newOne is not false thensend Mouseup to btn "New Bug"put "Bug Reported at : card "&quote & theName &quote &" of "& cSName & return into fld "Description"end ifend bugon lockfields --// do not allowbeepend lockfieldsfunction errorCheck strrepeat with n = 1 to length of strif char n of str is not in "1234567890" thenanswer "‚Äú" & str & "‚Äù" & " is not a valid quantity."return falseend ifend repeatreturn trueend errorCheckon resumeStackspinCursorsend openCard to this cdopenStackpass resumeStackend resumeStackon openStackglobal gCDVolume6,gNoLaunch6,MFinder,gAppsCD7global gGlobalInit6,gLitCds,gLitIDs,gTheDepths6,gLastMenuspinCursorhide tool windowhide pattern windowhide msgput cd fld "Names" of cd 1 into gLitCdsput cd fld "IDs" of cd 1 into gLitIDsput cd fld "AppsCD" of cd "Preferences" into gAppsCD7readDatareadPreferencesif thereIsAFile(PreferencesPath()&"Lit Global Data") thenlock screenRestoreGlobalsexit openStackend ifif gGlobalInit6 = "" thenspinCursor--‚Ä¢‚Ä¢ Check heapif the heapspace < 120000 thenanswer "HyperCard may run out of memory. Please quit "&¬¨"and provide more memory for HyperCard." with "Stay" or "Quit"if it = "Quit" then send "Domenu Quit HyperCard" to HyperCardend ifend ifif gLastMenu = "" thenput "Main" into gLastMenuput "" into SpecInstructend ifif top of cd window < 20 then hide menuBarif MFinder = "" then put MFisRunning() into MFinder-- if not MFinder then hide menuBarif gCDVolume6 = "" then put "AP Ref & Pres Winter 91/92:" into gCDVolume6 --@if lineOffset(gCDVolume6,volumeList()) = 0 then put true & return & "Volume" into gNoLaunch6spinCursorif gTheDepths6 = "" then--‚Ä¢‚Ä¢ Get Color StuffSwitchXRooput the result into tempif temp contains "Color QuickDraw not available" thenput 1 & return & 1 & return & 1 into gTheDepths6else if temp contains "Error" thenbeepput true & return & "Monitor" into gNoLaunch6answer "Unable to get details about your monitor(s).  You "&¬¨"must open presentations manually."elseput number of lines of char 1 to offset("HasMenu",temp) of temp into theLineif gTheDepths6 is not "" then--‚Ä¢‚Ä¢ Save current depthput item 6 of line theLine of temp into line 2 of gTheDepths6else--‚Ä¢‚Ä¢ Save startup screen depth & current depth & Max Depthput item 6 of line theLine of temp & return & item 6 of line theLine of temp &¬¨return & last item of line theLine of temp into gTheDepths6end ifend ifend ifpass openstackend openStackfunction LineItemOffset findText,findInif findText is not in findIn then return 0put return & findIn & return into findInreturn number of lines of (char 1 to offset(Return&findText&",",findIn) of findIn)end LineItemOffsetFunction PathWay tFrepeat with i = Length of tF down to 1if char i of tF = ":" then exit repeatend repeatif i < 2 thenreturn tFelse return (char 1 to i of tF)end PathWayfunction LineOffset findText,findInif findText is not in findIn then return 0put return & findIn & return into findInreturn number of lines of (char 1 to offset(Return&findText&Return,findIn) of findIn)end LineOffseton SpinCursorglobal CursIDif CursID < 256 or CursID > 262 then put 256 into CursIDelse add 1 to CursIDset cursor to CursIDend SpinCursoron LinkToCard tC,theEffect,unlockFlagglobal gLitCds,gLitIDsSpinCursorif not the lockscreen then lock screenput line lineOffset(tC,gLitCds) of gLitIDs into tCgo cd id tCif the result is not "" thenbeepanswer the result & return & the paramsend ifif unlockFlag is not false thenif theEffect is not "" and theEffect is not "None" thenunlock screen with theEffectelse if theEffect is not "None" then unlock screenend ifget DoubleClick()end LinkToCardon LinkToSearchpush cdLinkToCard "Search","Iris Open"end LinkToSearchon LinkToIndexpush cdLinkToCard "Index","Iris Open"end LinkToIndexfunction DoubleClickSpinCursorwait 20return the mouseClickend DoubleClickon arrowKeyglobal UserNameif UserName is in "Peter Meyer,David Goldman" then pass arrowKeyend arrowKeyon domenu menuItemglobal UserNameif UserName is in "Peter Meyer,David Goldman" then pass domenuif menuItem is in "Quit HyperCard Home" then LinkToQuit menuItemelse if menuItem is in "First Next Last Prev Back Recent" then beepelse pass doMenuend domenuon selectLine lineNum,fldNamedo ("put line lineNum of " & fldName & " into theLine")if theLine is not "" thendo ("put (length of line 1 to lineNum of" && fldName & ") + 1 into endChar")do ("select char (endChar - length of theLine) to endChar of" && fldName)end ifend selectLineon LinkToBacklock screenspinCursorpop cdunlock screen with iris open fastend LinkToBackon LinkToOrderglobal gLastMenu,gPartIDspinCursorif short name of this bg is in "TOC Literature" thenpush cdelse if short name of this cd is "Search" thenpush cdelse if gPartID is not "" thenpush cd id gPartIDelsepush cd gLastMenuend ifLinkToCard "Order Form","iris open"end LinkToOrderon LinkToQuit whereglobal RPStackName,gLastCard,gTheDepths6,gOrderDataif gOrderData is not "" thenanswer "Are you sure you wish to leave Apple In Print?"& return &¬¨"(You have an unfinished order that will be erased if you leave now)." with "Cancel" or "Leave"elseanswer "Are you sure you wish to leave Apple In Print?" ¬¨with "Cancel" or "Leave"end ifif it = "Cancel" then exit LinkToQuitset cursor to 4global gLitCds,gLitIDs,gOrderData,gOrderIDs,gPONumber,gImprintList,gImprintData,gImprintLineput "" into gLitCdsput "" into gLitIDsput "" into gOrderDataput "" into gOrderIDsput "" into gPONumberput "" into gImprintListput "" into gImprintDataput "" into gImprintLineif RPStackName is not "" thenlock screenlock screengo RPStackNamerepeat until not the lockscreenunlock screen with iris closeend repeatelse--‚Ä¢‚Ä¢ Reset Bit depths to entry level (if necessary)put line 1 of gTheDepths6 into reqDepthif reqDepth is not line 2 of gTheDepths6 thenif reqDepth = 1 thenput "gray" into colorTypeelse put "Color" into colorTypeSwitchXRoo reqDepth,colorTypeend ifif where = "Home" thenclearGlobalsvisual barn door closego homeelse send "domenu Quit HyperCard" to HyperCardend ifend LinkToQuiton LinkToHelp theCdget DoubleClick()if theCd = "" then put "General" into theCdlock screenpush cdLinkToCard ("Help - "& theCd),"barn door open"end LinkToHelpfunction thereIsAFile tFglobal errGlobalreturn (fileExists(tF,"nodialog:errGlobal") is true)end thereIsAFileon resumerestoreGlobalspass resumeend resumeon suspendarchiveGlobalspass suspendend suspendon clearGlobalsglobal gMainStack6,MFinder,gOtherCdList6,gCDVolume6,gGlobalInit6,gLastMenu,gMenuSelection6global gAppsCD7,gTheDepths6,gNoLaunch6,gLastMenu6,gMultiFinder,gScreen6,gSystemVersionglobal gCustData,gShipData,gImprintData,gOrderData,gImprintList,RPStackNamespinCursorput "gMainStack6,MFinder,gOtherCdList6,gCDVolume6,gGlobalInit6,gLastMenu,gMenuSelection6,"&¬¨"gAppsCD7,gTheDepths6,gNoLaunch6,gLastMenu6,gMultiFinder,gScreen6,gSystemVersion,"&¬¨"gCustData,gShipData,gImprintData,gOrderData,gImprintList,RPStackName" into gblListrepeat with z = 1 to number of items of gblListif z mod 6 = 0 then spinCursordo "put empty into "& item z of gblListend repeatend clearGlobalson archiveGlobalsglobal gMainStack6,MFinder,gOtherCdList6,gCDVolume6,gGlobalInit6,gLastMenu,gMenuSelection6global gAppsCD7,gTheDepths6,gNoLaunch6,gLastMenu6,gMultiFinder,gScreen6,gSystemVersionglobal gCustData,gShipData,gI